From: Paul Pogonyshev <pogonyshev@gmail.com>
Date: Sat, 2 Apr 2016 09:47:46 +0000 (+0300)
Subject: Support macros in 'func-arity'
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~21^2~3291
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=7aa94d60560c0f1ba15b7fd2fd5d5a5bf114795a;p=emacs.git

Support macros in 'func-arity'

* src/eval.c (Ffunc_arity): Support Lisp macros as well.
---

diff --git a/src/eval.c b/src/eval.c
index e90b077bfb6..72facd5db64 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -2960,6 +2960,9 @@ function with `&rest' args, or `unevalled' for a special form.  */)
 	function = indirect_function (function);
     }
 
+  if (CONSP (function) && EQ (XCAR (function), Qmacro))
+    function = XCDR (function);
+
   if (SUBRP (function))
     result = Fsubr_arity (function);
   else if (COMPILEDP (function))